home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t4.d64 / lemonade.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  65 lines
  1. 10 POKE53280,1:POKE53281,2
  2. 20 CLR:PRINT"[147]      LEMONADE STAND"
  3. 21 PRINT"AT LEAST GET $250 TYPED BY RAVI PALEPU"
  4. 30 SU=.1:PA=1:TA=.5:CI=.1:CO%=0:DA=7:DA$="OCTOBER"
  5. 40 FORX=1TO6:READD$(X),D(X),TE(X):NEXTX
  6. 45 INPUT"HOW MANY PLAYERS(1-10) 1[157][157][157]";GR:IFGR<>INT(GR)OR(GR)>10ORGR<1THEN45
  7. 50 DATA "IT IS HOT.",9,20,"IT IS NICE.",7,15
  8. 60 DATA "IT IS CLOUDY",5,10,"IT IS RAINING",3,2
  9. 70 DATA "IT IS SNOWING",1,-10,"IT IS VERY HOT",10,25
  10. 80 FORN=1TOGR:TP(N)=20:NEXTN
  11. 89 REM: START OF EACH DAY
  12. 90 Z=INT(RND(1)*6+1)
  13. 100 Y=INT(TE(Z)+((RND(1)*8-3.5)))
  14. 101 SU=SU+(RND(1)/100-.005)
  15. 102 CI=CI+(RND(1)/100-.005)
  16. 103 PA=PA+(RND(1)/50-.01)
  17. 104 TA=TA+(RND(1)/10-.05)
  18. 105 FORN=1TOGR
  19. 106 PRINT"[147]PLAYETR #"N":"
  20. 107 PRINT"            DATE:[146]    "DA$;DA",1982."
  21. 108 PRINT"            WEATHER:[146]     ";D$(Z)
  22. 109 PRINT"            TEMPERATURE:[146]    "Y"C."
  23. 110 PRINT"THE PRICE OF SUGAR  : $";INT(PA*100)/100
  24. 120 PRINT"THE PRICE OF LEMONS  : $";INT(CI*100)/100
  25. 130 PRINT"THE PRICE OF GLASSES  : $ .03"
  26. 140 PRINT"THE PRICE OF ADVERTISING SIGNS  : $";INT(PA*100)/100
  27. 150 PRINT"THE MUNICIPAL TAXES  : $";INT(TA*100)/100
  28. 160 PRINT"YOUR MONEY : $";INT(TP(N)*100)/100
  29. 170 PRINT"HOW MANY ADVERTISING SIGNS ARE YOU MAKING(0-10)"
  30. 171 INPUTB%(N)
  31. 175 IFB%(N)<0ORB%(N)>10ORB%(N)<>INT(B%(N))THEN170
  32. 180 PRINT"HOW MANY GLASSES OF LEMONADE DO YOU WANT TO MAKE"
  33. 181 INPUTA%(N)
  34. 185 PRINT:IFA%(N)<0ORA%(N)<>INT(A%(N))THEN180
  35. 190 PRINT"WHAT PRICE DO YOU WANT TO CHARGE PER GLASS(IN DOLLARS)"
  36. 191 INPUTE(N)
  37. 195 IFE(N)<0THEN190
  38. 200 A(N)=INT((B%(N)*PA)*100)/100:B(N)=INT((A%(N)*(SU+CI+.03))*100)/100
  39. 210 C%(N)=INT(RND(1)*(B%(N)/1.5)+1)*(1.2-E(N))*D(Z)*((Y+25)/10)
  40. 212 IFC%(N)>A%(N)THENC%(N)=A%(N)
  41. 213 IFC%(N)<0THENC%(N)=0
  42. 215 PR(N)=C%(N)*E(N)-B(N)-A(N):TP(N)=TP(N)+PR(N)
  43. 216 IFTP(N)>0THEN220
  44. 217 PRINT"YOU ARE VERY DUMB. YOU DON'T HAVE ENOUGH MONEY.[146]"
  45. 218 FORX=1TO5000:NEXTX:TP(N)=TP(N)-PR(N):IFTP(N)<2THENTP(N)=2
  46. 219 GOTO107
  47. 220 NEXTN
  48. 224 REM:?THE DAY' RESULTS
  49. 225 FORN=1TOGR:PRINT"[147]   RESULTS FOR PLAYER #"N":"
  50. 230 PRINT"THE COST OF ADVERTISING SIGNS   :$"A(N)
  51. 240 PRINT"THE COST OF"A%(N)"GLASSES OF LEMONADE  : $";B(N)
  52. 250 PRINT"YOU SOLD"C%(N)"GLASSES OF LEMONADE."
  53. 260 PRINT"YOUR PROFIT FOR TODAY IS : $"INT(PR(N)*100)/100
  54. 270 PRINT"PRESS THE<<<SPACE BAR>>> TO CONTINUE."
  55. 280 GETT$:IFT$="E"THEN500
  56. 283 IFT$<>" "THEN280
  57. 289 REM:INCREASING THE DATE
  58. 290 NEXTN:DA=DA+1:IFDA<31THEN90
  59. 300 DA=1:IFDA$<>"OCTOBER"THEN500
  60. 310 DA$="NOVEMBER":GOTO90
  61. 499 REM:END OF THE PROGRAM
  62. 500 PRINT"[147]THE GAME IS OVER."
  63. 510 FORN=1TOGR:PRINT"THE PROFIT FOR PLAYER #"N"IS$"INT(TP(N)*100)/100"[157]."
  64. 520 NEXTN:END
  65.